;;; set up editor used by "$EDITOR)" button in w_ctrlpnl.lsp, and grep-br.lsp
;;; If you don't set this then environment variable $EDITOR will be used.
;;;
; ;; For those using Andy Norman's emacs gnuserv/gnuclient/gnudoit package...
; (setq *SYSTEM-EDITOR* "gnuclient -q")
;
; ;; For those using emacs' standard emacsserver/emacsclient package...
; (setq *SYSTEM-EDITOR* "emacsclient")
;
; ;; VI users will want to use this, even though it is slow, but hey, you use VI, so you must be used to braindamage by now :-)...
; (setq *SYSTEM-EDITOR* "xterm -e vi")
;
;;;
;;; Load the WINTERP control panel -- provides control over the XLISP debugger,
;;; alongside a file-browser and an XmText editor. The XmText editor may be
;;; used to for entering Lisp expressions into WINTERP's XLISP evaluator --
;;; the expression underneath the cursor is evaluated by using the
;;; "Eval @ Point" button. Note that the editor and Lisp evaluator portions
;;; of w_ctrlpnl.lsp need alot more work. I use gnu-emacs myself...
;;; (also, you should set *SYSTEM-EDITOR* first...)
;;;
; (if (not (load "w_ctrlpnl")) ;load doesn't signal an error.
; (error "Couldn't load w_ctrlpnl.lsp -- did you forget to set\nresource .lispLibDir or command-line argument -lib_dir\nto specify the path to the WINTERP examples directory??")
; )
;;;
;;; Load "prov-req" providing XLISP routines PROVIDE and REQUIRE, which
;;; behave much like their counterparts in Common Lisp. REQUIRE is a much
;;; nicer way to load files than LOAD because it allows you to specify a
;;; load path. Note that "prov-req" only work for X11r4/Motif1.1
;;;
;;; Set global variable *default-load-path* to a string whose format is
;;; described by the Xtoolkit function XtResolvePathname().
;;; (%N gets substituted for the name REQUIRE'd, %S=.lsp)
;;;
; (setq *default-load-path*
; (strcat
; "/users/mayer/%N%S:"
; "/users/mayer/%N:"
; "/users/mayer/src/winterp/examples/%N%S:"
; "/users/mayer/src/winterp/examples/%N:"
; "/tmp/%N%S:"
; "/tmp/%N"
; ))
; (if (not (load "prov-req")) ;load doesn't signal an error.
; (error "Couldn't load prov-req.lsp -- did you forget to set\nresource .lispLibDir or command-line argument -lib_dir\nto specify the path to the WINTERP examples directory??")
; )
;;;
;;; Add a method on the widget metaclass WIDGET_CLASS. The method allow use of
;;; simpler notation for doing XtGetValues() for a single resource.
;;; (send <widget-class> :get :<resource-name>) ==> returns the resource value.
;;;
;(send WIDGET_CLASS :answer :get '(resource-name)
; '(
; (car (send self :GET_VALUES resource-name NIL))
; ))
;;;
;;; Set the grep program used by the Motif 1.1 version of grep-br.lsp
;;; gnugrep is highly recommended because it is many times faster than standard grep...
